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eTITL NSSNET_ CONNECT Make a (pass through) DECnet ti 
* IDEN WWone 800! “ Bg sc git: rit 
¢ § enneneensersecnneseneenecessoncosacesennensoentonsenseneesoenecesneeneeneees 
;* 
Fie COPYRIGHT (c) 1978, 1980, 1982. 1986 B : 
3* DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * 
1 ‘* ALL RIGHTS RESERVED. * 
e * 
1% ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
1 3* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
15 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0 14 ;* COPIES THEREOF oat ee BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0 15 ;* OTHER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; 1 :* TRANSFERRED. * 
Py * 
8 18 ;* THE rd ory te IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® 
800 Y a CORPORATION. * 
0 ® 
44 ¢ 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ® 
000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
ne ? 
a 
44 gi: ITITITITITILIL IIIT TI LILI LILLE LLL TTT LTT LiT titi titi iie 
0000 a 
000 9 ;++ 
4 ? : FACILITY: DECnet Library support routines 
00 : ABSTRACT: 
$009 § : 
0000 4; Makes a DECnet logical link connection, possibly passing 
444 2 3 through many nodes to get to some non-adjacent node. 
0900 f : ENVIRONMENT: VMS - USER MODE 
9009 39 ; AUTHOR: Mark Bramhall CREATION DATE: 25-Feb-1980 
900 41 > MODIFICATION HISTORY: 
00 ¢g : v03-004 DASO001 David Solomon 14-Apr-1984 
rf: 3 Remove reference to unused RMS NOP bit. NAMSM_ROD. 
46 : v03-003 MHB0098 Mark Bramhall 10-Jan-1984 
4 rt : Handle or of NETMBX privilege correctly. 
0 49; v03-002 80095 Mark Bramhall 25-Mar-1983 
; 9 : eicees aa onal data with NAMSM_ROD in NAMS$B_NOP. 
: ; v03-001 MHB0083 Mark Bramhall 14-Jan-1983 
7 : Use SPARSE to parse the ‘‘device name"’ specification. 
$3 v02-002 MHB0077 Mark Bramhall _9-Jun-1981 
§ : Added data message buffer size for ‘‘pass through’’ responders. 
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~SBTTL UNSSNET_CONNECT Make a (pass through) DECnet connection 


+ 
; UNSSNET_CONNECT = Make a (pass through) DECnet connection. 


Makes a DECnet, logical Link connection, possibly using the 
pass through" protocol to get to a non-adjacent node. The 
connection can be made in either ‘'transparent’’ mode (no mailbox 
channel word argument) or ‘'non-transparent’’ mode (mailbox channel 
specified). Note that for non-adjacent nodes (i.e., when the 
pass tadjee protocol is in use), the link mailbox is connected 


PONNE ‘ 


UNSSNET_CONNECT Make a 
VO2 e000" UNSS$NE 


| 


t 
to the adjacent node's ‘pass through" object type responder. 
While mos 
interrupt messages in 
messages (especially the connect 
first hop only. 


‘pass shcough object type responders will forward 
oth d ay) ons, other DECnet generated 
on confirm/reject) are for the 
Additionally, optional arguments allow for: 
1) Obtaining the final node path used. 


2) Obtaining the Access Control String (ACS), if any. specified 
for the final target node. If the final ACS is asked for, 


OOOCCCCOCOCCSOCCOOOCOOOOOOOOoOOoO 


3 it is Stripped from the actual connection request, thus 

: applying the default ACS for the target node connection. 

3 ote: ALL intermediate connections using the ‘'pass through" 
5 protocol strip any user specified ACS and always use the 

: default ACS.J 

3 3) If any informational, eres and/or failure messages are 
3 generated by the ‘‘pass hrough"’ protocol, they can also be 
: Obtained. As each message is generated, a user supplied 

3 routine is called with a SPUTMSG message argument vector. 

3 The status code used is SHR$_TEXT (shared atesage of simply 
: text) with the pover ity level set accordin to the 

; type and with the facility code set to ‘LIB’. 


4) Passing a data message buffer size to any ‘‘pass through’’ object 
responders. 


Call format: 


ret-status.wlc.v = UNSSNET_CONNECT ( device-name.rt.dx, 
Link-chan.ww.r, 
** optional ** mailbox-chan.ww.r, 
** optional ** path-list.wt.dx, 
** optional ** final-acs.wt.dx, 
** optional ** msg-routine.fz.rp, 
** optional ** buffer-size.rw.r, 
*t "'pass through" object type only ** num-hops.rb.r ) 


Inputs: 


Argument count (must be 2 or greater) 

Address of ‘device name docer ipter 

Address of word for assigned DECnet channel number 
Address of word for assigned mailbox channel number 


SQqooooooooooooooooooooooooooooooo 


ee eh a et i et 


SOoooooooo 
Sooooooo 


OCAP) 
4 (AP) 
thy 

(AP) 
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(AP) = Address cf descriptor for resultant path List 


= 
(AP) = Address of descriptor for final Access Control String 
= Address of routine to call with messages 
8 Address of ‘pass through"’ data buffer size word 
eeeee Th ; argument is for the apese through" object type only e*eee 
32(AP) = Address of number of hops'’ byte to pass if passing 
seeee This argument is for the ‘‘pass through'’ obje 


Outputs: 


ct type only e*ee# 


us 
AP) = nga tgneg DECnet channel number 
(zero if connection failure) 
(non-zero if ‘'pass through" protocol failure) 
Word @12(AP) = Assigned mailbox channel number 
(zero if connection failure) 
(non-zero if pass through"’ protocol failure) 
Desc @16(AP) = Resultant path list descriptor 
(attempted connection node name if failure) 
Desc @20(AP) = Final Access Control String descriptor 
Rout @24(AP) = Called with a SPUTMSG wesesee argument vector 


for ‘‘pass through’ protocol generated messages 


CoOoQoooooocoooo 


Assumptions: 
The ‘device name'’ string is of the general format 
Cnode-listldest-nodeL''ACS'')::"‘object-type"’ 
where <node-list> is (spaces are for clairity only!) 
node-1:: C node-2:: C node-3:: C ... J] ] 


where any node name (<dest-node> and/or <node-n>) can 
contain a leading underscore. 


SOOO COCOooOCooooooooooooooooe 


Argument offsets 


SOOoooooooooooo 


SOoooooooooooooooooooooooo 
LRDRDAD PSs 0 > Se BS BS BB WWI NINA NII I RPONININNPINONINY  S SOO? 


SOOQOOCCOCOCOOOOOOSSOSSOSOSOSSCSSOSSOOOOOCOOOOOOOOOOOOOOOOO 
WP OODNAUE WN SO ODNAUES WN O ODNAUES WN" OOVONOULSWN—O0O0ON ST 


me ek ee ed aed ed = — — — Sd — 3 2 — 2s — 3 = 8 8 ss 2 = ss 2 —) —) —) 2 ss 2 a ss a 


SOOooooooooooooooooooooooooooooooooooo 


00000004 DEV_NAME_DESC = 4 ; Offset to ‘‘device name"’ descriptor 
S44 5: 0 NET_CHAN_WORD = 8 3; Offset to DECnet channel number word 
00000 of 0 MBX_CHAN_WORD == 12 ; Offset to mailbox channel number word 
0000001 0 RSL_PATH_DESC = 16 ; Offset to resu.tant List descriptor 
8 B88 14 FINC_ACS-DESC = $ ; Offset to final ACS descriptor 

18 MSG_ROUT“ADDR = 4 : Offset to message call routine 
0 Reon bs BUF_SIZE_WORD = ¢§ ; Offset to data buffer size word 
00000020 00 NUM_HOPS_ BYTE = ; Offset to ‘‘number of hops"’ byte 


UNSSNET_CONNECT Mak 
ye .000" N 


Cc 
2 
wm 
za 


00000100 


o 
So 
So 
So 


3A 3A 
2F 3D 33 32 31 22 3 


00'00°00'00'00'00'00'00' ° 


0 
0 
3A 30 54 45 4E SF 
00000006 


00000000 


00000028 


0000 


6D 00000000'GF 9 
00000000'GF 6C_ FA 


0000 


6D Q0000000'GF 9€ 
00000000°GF 6C FA 


mo 
“ 
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ASCII 
PASS_OBJECT_CNT 
PASS~OBJECT~LEN 


NET_DEV_NAM: 
NET_DEV_NAM_LEN 


STRING_COPY: 
~ WORD 
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e a (pass through) DE 
; Local definitions 


$F ABDEF 

AMDEF 

SHRDEF 

SSTSDEF 
10_BUF _LEN = 256 

3 Local offsets 
WAIT_EFN = -8 
RET_STATUS = -4 


; «PSECT definition 
-PSECT _LIBSCODE 


3; Local data 
DOUBLE _COLON: 
AS 


CII J/ss/ 
PASS_OBJECT: 
eASCIIT %::°123s/° 
WORD 8 
10$: BYTE 
-—BYTE 0O (16) 
eete 


10$-. 
.-PASS_OBJECT 


/ NETO:/ 


.-NET_DEV_NAM 

CREMBX_BUF QUO: 

. LONG 
CREMBX_MAXMSG: 

.LONG 40 
.SHOW MEB 
STRING_FETCH: 

.WORD = *M<> 


MOVAB G*LIBSSIG_TO_RET, (FP) 
cays (AP), G*LTBSANALYZE_SD 


“M<> 
MOVAB G*LIBSSIG_TO_RET, (FP) 
CALLG (AP), G*STRSCOPY_DxX 


8 
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FAB definitions 

NAM definitions 

Shared tp definitions 
Status code definitions 


; Size of 1/0 buffer for protocol 1/0 


FP offset to our Event Flag Number 
FP offset to saved return status 


PIC, USR, CON, REL, LCL, SHR, EXE, RD, NOWRT, LONG 


; Double colon for finding a node name 


Pass through protocol object type 


; DECnet ‘‘device name’ 
; Link mailbox buffer quota (defaults) 


; Link mailbox max msg len (DECnet=40) 


; Fetch a string's length/address 


; Return signals as status codes 


; Go fetch string's length/address 
Return. 


; Copy a string to caller's desc 


; Return signals as status codes 
; Go copy string to caller's desc 
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04 rt 1 RET ; Return. : 
OOFC : ENTRY UNSSNET_CONNECT, “M<R2,R3,R4,R5,R6,R7> ; Entry point and register mask ; 
me 5 5 CLR -(SP) ; Make room for return status & EFN ; 
5 § ASSUME RET. STATUS EQ =-4 $ 
5 ASSUME WAIT EFN EQ =8 3 
08 34 B4 5 8 CLR @NET_CHAN_WORD (AP) ; Pre-clear DECnet channel number word ; 
5 D4 005 9 ECRL R ; Guess at no mailbox handling ; 
03 +5 4 Baek 4B (AP), #MBX_CHAN_WORD/4 ; pe we have this argument? : 
oc a 8 Bee § TSTL MBX_CHAN_WORD (AP. ; Ye Fee, but a * bs. really supplied? : 
0 1 SF BEQL ; Not really there... : 
Oc BC B4 0061 4 CLRW @MBX_CHAN_WORD (AP) ; Pre-clear nai (box channel number word ‘ 
57 06 0064 5 INCL R7 3; _and say we're handling a mailbox : 
Bpee § 10$: ; Continue : 
S06 535 PARSE_STRING: Parse the ‘device name'’ string : 
ee Bpe8 sip CLRQ -(SP) Form a cleared descriptor 3 
56 6€ 7E 006 40 MOVAQ (SP), R6 and get a pointer to it 3 
5E FEES CE DE 0068 41 MOVAL -<NAMSC Pye bt PP) be ants LEN+® 3; Form connect buffer ; 
0070 | <4=1>8°C<4- =T>>(SP), SP ; rounded up to a longword : 
04 A6 6E€ YE 0070 4 MOVAB (SP), 4(R6) and” save its address 3 
SE FFSO CE DE 0074 244 MOVA ~<F ASS BLN+NAMSC_BLN>(SP), Allocate a FAB and NAM ; 
6E 0080 8F 00 6€ 00 2C 0079 245 MOVCS #0, (SPT, #0, #FABSC NBLNONAMSC _BLN, (SP).;. then clear them ; 
52. 6E ~=OiE «(0081 = 846 MOVAL (SB). ; Address. the” FAB ; 
53 50 AE DE 0084 247 MOVAL FABse 6 R3 and t ; 
62 5003 8F BO 0088 48 MOVW yer PABSe Boe nadS !FABSC _BID, FABSB tRIDCRD ; ; Set up the FAB : 
008D 49 ASSUME FABSB_BLN Q FAB$B_BID+1 ; 
8A 63 DE 008D $29 MOVAL ng ABSC LN AM(R2) ; Link the NAM to the FAB : 
63 6002 8F 80 0091 51 MOVW sean C BUNGS> 'NARSC -BID, NAM$B_BID(R3) ; Set up the NAM 3 
Bbae 26 ASSUME NAMS$B_BLN EQ Met _BID+1 é 
08 AS. 01—s«90 444 5 MOVB #NAMSM_PWD, NAMSB ew Keep password 3 
Oc A304 B6 4 009A 254 MOVAB @4(R6)> aNASL _ESATR3) as expanded string address ; 
OA AS FF 8F 90 QO9F 55 MOVB #NAMSC_MAXRSS; NAMSB_ ESS(R ) ; _and expanded string Length : 
¢ “ DF one 56 PUSHAL FABSL =FRAGR Rs) : Arg #3 is the returned address 3 
4A 3F QOA7 57 PUSHAW FABS$B-FNS(R2) ; Arg #2 is the returned length : 
OOAA 58 ASSUME FABSB_DNS EQ FABSB FNS+1 : 
04 B¢ 7F OQOAA 59 PUSHAG apey NAME _BESC(AP) ; Arg #1 is the ‘device name" desc : 
FF7A CF QO FB QOAD 60 ALLS #3, STRING FETCH :; Go fetch the string's Length/address 3 
0D 30 b088 61 BSBW Lowe T_ELSE_DIE ; Check the completion code i 
50 00000000°8F 00 0Q0B 6¢ MOVL ROD, RO ; Preset ‘Illegal node name"’ error : 
35 A2 95 QOBC 6 TSTB FABSB-D NS(R2) ; Was the “device name’’ too long? : 
vee 64 ASSUME FABSB_DNS Sage FABSBY FNS+1 : 
1B 12 F 65 ce ; Yes, go call it an error... 3 
0C1 66 ARSE - ; Parse 3 
0C1 67 = (R2) : the ‘device name"' 3 
62 OF bcd PUSHAL CR 3 
00000000 ' GF 9 FB C3 CALLS #$$.TMP1,G*SYSSPARSE ; 
00000000' 8F 30 DI OCA 68 CHPL RO, #RMS$_CHN ; Did the channel assignment fail? ; 
; Nope 3 
51 0c ag 09 B03 26 MOVL FABSL_STV(R2), R1 : Yep, get the STV from the parse : 
9 1 0D 7? BEQL 10$ 3 Non 3 
50 1 s D9 % MOVL Ri, RO ; One, use STV as failure code : 
1E DC 73 10$: BSBW LOWBIT ELSE Bie : gheck the completion code : 
54 38A A DF 74 MOVZBL NAM$B_RODE(R3), R4 ; Form descrip ptor to the node name 3 
55 408 9E E3 75 anam$C _NODE (R35, R5 3 part of string (to extract ACS) 3 
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6 B A3 A E7 76 MOVZBL WNAM$B_ESL(R3), (R6) 3; Set expanded string's real length ; 
3 4 B6 € MOVAB a SP ; Flush (now) unused stack space : 
50 O00000000'8F oD EF 8 MOVL #RMS$_NOD, RO ; Preset ‘Illegal node name"’ error ; 
5E > »§ Fg 7 CMPL RS, SP : Is the node name the first thing? : 
—1 12 r9 p BNEG 108 : Nope, go call it an error... : 
FB § GET_FINAL_ACS: ; Extract final ACS if needed ‘ 
05 6¢ 91 FB CAPB AP), WFINL_ACS_DESC/4 ; Do we have this argument? : 
6 1f QOF 4 BLSSU ; Nope ; 
14 ag 8 10 5 TSTL FINL_ACS_DESC (AP) ; Yep, but was it really supplied? ; 
6 1 10 § BEQL ; Not really there... : 
7E 96 7D B18 § MOVQ (R6), =(SP) ; It's there, save current desc ‘ 
66 4 7D 0108 8 108: MOVQ R4, ; Set new string length/pointer : 
04 B86 66 FEFO CF QO 3 8198 8 MATCHC #2, DOUBLE_COLON, (R6), &4(R6) ; Find a node name ‘ 
54 «5 D 011 0 MOVQ ’ : Save length/pointer gest node name : 
63 52 FEES CF 02 39 0116 291 MATCHC #2, DOUBLE_COLON, R2, (R$) ; Another node name : 
&? 13° 0110 38 BEQL ; Yes, loop... : 
66 34 2 OIE 38 SUBL  R4, (R6) ; Isolate the last node name ; 
0486 $6 22 3A Olge 294 LOCC © #*A/"'/, (RO), @4(R6) | Find the ACS if any ; 
54 0 7D 4 95 MOVQ RO, R4 : Save descriptor of ACS : 
52 50 DO OQ12A 96 MOVL RO, R2 ; Really an ACS? : 
0B 13 O12D 297 BEQL 208 ; Nope : 
54 D7 O12F 98 DECL RG : Yep, skip the leading quote in count : 
55 6 0131 99 INCL R5 3; _and bump pointer over it ; 
65 34 22 SA 0155 300 LOCC =—s_ #*A/*'/, R4, (RS) ; Find the trailing quote : 
54 50 C2 0137 301 SUBL RO, 3 and remove rest of string : 
66 54 7D O13A 308 208: MOVQ = R4, (R6) ; Load descriptor of ACS : 
66 = 7F Bie 0 PUSHAQ (RO) ; Arg #2 is the src string desc : 
14 BC 7F O1SF 04 PUSHAQ @FINL ACS DESC (AP) ; Arg #1 is the dst etring desc ; 
FEF6 CF O02 FB O146 05 CALLS #2, STRING_COPY ; Go copy final ACS to caller's desc ; 
66 of 7D 014 06 MOVQ (SP)+, (ROY ; Restore original descriptor ; 
01 30 Q14A 07 BSBW LOWBIT_ELSE_DIE ; Check the completion code : 
52 D5 014d 08 TSTL Re ; Really any ACS? : 
16 13 Q14F 09 BEQL 308 ; Nope : 
54 02 CO 0151 10 ADDL #2, R4 : Yep, add back in the quotes : 
66 854 Cs 0154 11 SUBL R4, (R6) ; and decrease original string's size : 
55 OD bi26 \¢ ECL R5 3; Correct pointer for initial quote : 
52 55 04 A6 cS 159 1 SUBL3 4(R6), R5, R2 ; Find size of left half of string : 
52 66 3§ C3 015 14 SUBL3 Ré. (R6), R ; then size of new right half 3 
65 6544 52 28 016 15 Move = R2, (RS) ER4I, (RS) : Shuffle up string... ; 
big) 18 30$: ; Continue : 
167 18 CHK_PASS_PROTO: : Check for needing pass through 3 
FB AD DF 0167 19 PUSHAL WAIT_EFN(FP) ; Arg #1 is the EFN return lLongword : 
00000000'GF 01 fe IGA 0 CALLS #1, G*LIBSGET_EF ; Go allocate us an EFN ; 
O14—E 3 171 1 BSBW LOWBIT_ELSE_DTE ; Check the completion code 3 
4 0174 § CLRL - ; Guess at a direct connection : 
04 B86 66 FEBS CF O 9 0176 MATCHC #2, DOUBLE_COLON, (R6), &4(R6) ; Find first node name ; 
ee D OI7E 4 MOVa Re, : Save size/pointer to rest of string 3 
63 52 FE7A CF O 39 0181 5 MATCHC #2, DOUBLE_COLON, R2, (RS) ; is there another node name? 3 
4D 12 0188 § BNEQ ; Nothing more, a direct connection 3 
5E FFO8 ce 9E O18A MOVAB <=<I0_BUF_LEN-4-4>(SP), SP ; Make room for 1/0 buffer on stack 3 
—E 7C Q18F 8 CLRQ - ; Preset number of hops to zero, etc. : 
08 6c 91 191 CMPB (AP), #NUM_HOPS_BYTE/4 ; Do we have this argument? ‘ 
20 AC D5 196 ? 731 NUM_HOPS_BYTE (AP) : von but was it really supplied? : 
0 3 199 2 BEQL NOS” > : Not really there... ; 
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04 AE 20 8C 90 019 3 MOVB @NUM_HOPS_BYTE(AP), 4(SP) ; Yep, set number A hops to far ; 
7E 32 i 3] 185 : 10$: ese HE Ae Re ) i fare bate bist's ‘ ength s bote : 
at s = rom str : 
09 AE OOFF BF 00 es z 107 $36 MOVES RG. (RS), #0, #IO_BUF_LEW-1° “ RUEP) ‘: hove List to 1/0 Buffer : 
66 f 1B SUBL (R6 5 ake th z delale colon from node name ; 
04 B6 $8 A Q1B § Locc #°A/"'7, (RO), @4(R6) : Find 5 “s in node name ; 
6 C 1B SUBL ( 3 ane take it away : 
66 iC 188 340 ADDL #PASS_OBJECT_LEN, (R6) Up date, count for object type : 
i >} we ae | 1BE 4) MOVC #PASS-OBJECT— LEN, PASS 0bJE T, : and move ; 
07 =6C 1 1€4 tg CMPB (AP), #BUF SIZE ~WORD/4~ 3; Do we ys this Pinan Tes # : 
OE 1F 01C7 4 BLSSU 3; Nope 3 
1c AG b 1¢9 44 TSTL F_SIZE_WORD(AP) ; A but 3 it really supplied? : 
0 1 1CC 45 BEQL : Not really there... . 
fe AS 02 90 OIC r MOVB PASS_OBJECT_CNT(R3) ; Set connect dats count to two bytes : 
EF A ig BC B0 1D 4 MOVW O5UF size gHORD CAP) , PASS. OBJECT_CNT+1(R and fill them in : 
FE43 CF 8=69F «(01D 48 20$: PUSHAB NET BEV ; Form & & descriptor to : 
06 bp 1D8 49 PUSHL #neT. Dey. Mn LEN 3 the DECnet ‘device name'' 3 
50 of 3 ats 50 MOVAQ (SP ; . and get a pointer to it : 
10 57 EB O1E 51 BLBS R?, 408° : Are we doing a mailbox? ; 
O1E 26 SASSIGN_S - ; Assign a channel 3 
O1E 5 “DEVNAM = (RO), use the DECnet ‘‘device name'’ 3 
ae OES 54 CHAN = aneT CHAN. WORD(APS ; place channel number back here : 
08 BC 3F Q1E5 PUSHAW aNeT. CHAN_WORD (AP) é 
60 7F O1E8 PUSHAQ (RO) : 
00000000'GF 04 FB OI1EA CALLS #4,G*SYSSASSIGN 3 
Ww pied $22 BRB 40$ ; Go check the completion status : 
OC BC «SF OFS 339 PUSHAW @MBX_CHAN_WORD (AP) 3; Arg #5 is the mailbox channel word 3 
08 BC SF O1F6 58 PUSHAW @NET CHAN WORD (AP) ; Arg #4 is the DECnet channel word 3 
FE27 CF OOF pire 59 PUSHAL CREMBX_BUFQUO ; Arg #3 is the buffer quot : 3 
FE27 CF DF O1FD 60 PUSHAL CREMBX_MAXMSG ; Arg #2 is the maximum message = : 
60 7F 0201 61 PUSHAQ (RO) ; Arg #1 is the DECnet ‘device name’ 3 
00000000'GF 05 FB 0203 66 CALLS #5, G*LIBSASN_WTH_MBX =; Assign channel with a mailbox 3 
36 50 ? 020A 6 BLBC 0° 5 3; Go die unless success completion F 
54 66 E 0200 64 MOVAQ (RO), R4 ; Get pointer to connect information 3 
55 6E€ 7€E 851 65 MOVAQ (SP), R5 ; _and a pointer to an 10S ‘ 
021 66 $Q10W_S - : Request connect initiate 3 
4 67 CHAN = @NET_CHAN_WORD(APS on the destination : 
021 68 FUNC = S*#IO$_ACTESS, - ; using the access function 3 
021 69 EFN = WAIT EFN(FP), - ; waiting for it to complete s 
021 70 10SB = (RSJ, - ; use an 10SB8 3 
021 71 P2 = R4 3; use the connect information $ 
7E 7C 1 CLRQ -(SP) ; 
7E 7C 1 CLRQ -(SP) 3 
54 0D 1 PUSHL RS é 
0 D 19 PUSHL #0 : 
3 C 18 LRQ thay. é 
F 1D PUSHAQ (R5) : 
7E * = 1F MOVZWL S“#I0$_ACCESS,-(SP) 3 
7E 08 8C 3¢ 2 MOVZWL @NET_CRAN WORD(AP) ,-(SP) ; 
F8 AD DD PUSHL A EFN(FP) : 
00000000 ' GF 9 Fe CALL «08 #12,G*SYSS$Q10W ; 
10 3 % BLBC ; Go die unless success completion 3 
20 f 7 MOVZWL (85), 3; Get the 1/0 completion code ; 
8 C 3 74 ADOL a8, § : and pop the IOSB from stack r 
00° D1 75 CMPL R tasss NORMAL 3: Is it simply a success completion? : 
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5 2 C 7 NEQ 50$ 3; Nope . 
50 0000'8F ; 7 MOVZWL #SS$_REMOTE, RO ; Yep. change § to connection confirmed : 
FC AD p nA £8 50$: OVL RO, RET_STATUS(FP) tore assign’s completion code : 
04 B6 66 FDB4 gf 4 7 ATCHC #2, DOUBLE COLON, (R6), bathe) 3 node name again . 
3 4F 0 ADOL #2, R ; Put alt colon back into remainder ; 
6 § é 1 SUBL Re, (R6) 3; _and take away all but node name ; 
04 B6 66 A 3 LOCC = #*A/"'/, (RO), @4(R6)  =¢ Scan for an ACS : 
& C A SUBL RO, (RA) : and take it away ; 
61 3A3A BF B 5 4 MOVW #*A/::/, (RI) ; Add a double colon to it : 
66 eo 6 5 ADDL #2, ( ; and count the double colon : 
21 FC AD «EB (026 6 BLBS _—RET_STATUS(FP), 60$ ; pid the channel assign make it? ; 
69 H SDASSGN_S - ssign a channel : 
69 8 CHAN = @NET_CHAN_WORD( caps? trek the geet inotion F 
43 08 BC 3¢ 69 MOVZWL @NET_CHAN WORD (AP); (SP) ° 
00000000'GF 01 FB 9p CALLS #1 “GtSVSS0A ASSGN ; 
08 34 B4 4 89 CLRW @NET_CHAN _WOR D(AP) ; Clear the channel number word : 
15 5 E9 77 90 LBC R7, EXIT ~ 3 : Using @ mailbox? . 
8 7A 91 SDASSGN_S - : Deassicn a channet : 
7A =: 392 CHAN = @MBX_CHAN WORD(AP) ; from the mailbox ; 
7E 0c BC 3¢ 7A MOVZWL @MBX_CHAN WORD(AP),-(SP) 3 
00000000 ' GF 01 FB if CALLS #1,G*SYSSBASSGN . 
Oc BC B4 8 93 CLRW @MBX_CHAN_ GORD LAP) ; Clear mailbox channel number word ; 
05 11 Hy 8¢ BRB EXIT 3; Go exit ‘ 
50 6E€ 00 O28A 96 608: MOVL (SP), RO ; A path List to send? : 
60 12 0 gp 4 BNEQ DO_PASS_PROTO ; Yep, go do it : 
6 8F 99 EXIT: ; Exit after clean up : 
064 6C 91 O28F 400 CMPB (AP), MRSL_PATH_DESC/4 ; Nop ue have this arguaent? ‘ 
OF 1F 0292 401 BLSSU 10$ r : 
10 AC rf 94 ret TSTL RSL_PATH_DESC (AP) 3 Ven, but was i _featly supplied? : 
OA 1 97 40 L 10$~ 3 Not pgaily th : 
66 =e 7F 99 404 PUSHAQ (R6) ; Arg #2 is the. ere “string desc : 
10 BS 7F 9B 405 PUSHAQ @RSL_PATH_DESC (AP) ; Arg #1 is the dst string desc 3 
FD9A CF 2 «FB i 406 CALLS # TRING COPY : Go copy result path to caller's desc 3 
F8 AD be " rts 108: TSTL WALT_EFN(FP) 3 , we allocate us an EFN? : 
F8 AD OF AB 409 PUSHAL WAIT_EFN(FP) : Arg #1 is the allocated EFN longword : 
00000000'GF 01 FB 410 ALLS #1, G*LIBSFREE_EF ; Go free up our EFN : 
50 FC AD OD B2 411 20$:  MOVL  RET_STATUS(FP); RO : Get the return status : 
04 B tig RET 3; Return. 
B 41 
44 213 -ENABLE LSB 
87 21$ LOWBIT_ELSE_END: 3; End unless euscens status 
34 50 33 B7 41 BLBS . 10% ; Exit if success 
05 54 3 BA $13 BLBC LOWBIT ELSE. DIE 3; Have we gotten any messages? 
50 0000'8F C 8 41 ate Hist ons R ; Yes, change into connect reject 
C 420 LOWBIT_ELSE_DIE ; Die unless success status 
29 30 33 C 421 BLBS RO, 10 ; Exit if success 
FC AD C 4 § abv VL R het Stars (FP) ; Else set the status code 
50 08 BC ¢ C & MOVZWL ane _CHAN_WORD(AP), RO ; Get ~ assigned channel number 
- CD 3424 BEQL EXIT™ 3 pene. just go extt 
CF 425 SDASSGN_S - : Bgassion a channel 
CF 426 “CHAN 3; from the destination 
7E 3 3C CF MOVZWL "H0.=($P) 
00000000 ' GF 1 FB D2 CALLS #1,G*SYSSDASSGN 
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3 57 9 D9 «= 427 BLBC R7, EXIT 5 Using a mailbox? 
50 OC &C § DC 4 : MOVZWL @MBX_CHAN_WORD(AP), RO ; Get the assigned mailbox channel 
AD E 4 BEQL 3; None 
E 430 SDASSGN_S - ; Deassign a channel 
E 431 CHAN = RO ; from the mailbox 
7E + 3C E MOVZWL RO,-(SP) 
00000000 ' GF 1 FB E CALLS #1,G*SYSSDASSGN 
Ai 11 Ee ; ¢ BRB EXIT 3 then go exit 
05 EE 434 10$: RSB 3; Exit 
EF 435 
44 ? § «DISABLE LSB 
EF 4 3 DO_PASS_PROTO: ; Do the pass through protocol 
> €¢ FF 2 eee MOVAQ (SP), R5 ; Get pointer to the 10SB, buffer 
F 440 $Q10W_S - ; Write the path List 
Fo 441 CHAN = @NET CHAN WORD(AP), = ; to the destination 
O2F 185 FUNC = S*#10$_ WRITEVBLK, - ; writing obviously 
O2F 44 FN = WAIT EFR(FP), = ; waiting for it to complete 
O2F 444 IOSB = (RSJ, = ; use an IOSB 
F 445 Pi = 8(R5), - 3; «use precedes 1/0 buffer 
F 446 P2 = RO 3 with this preset size 
7E 7C¢ F CLRQ (SP) 
43 7C F4 CLRQ -(SP) 
5 DD Fe PUSHL RO 
08 AS F F PUSHAL 8(R5) 
3 C O2FB CLRQ (SP) 
6 7F O2FD PUSHAQ (R5) 
7E 00° 3C 8 FF MOVZWL S*#10$_WRITEVBLK,-(SP) 
7E 08 BC 3C 0302 MOV2WL @NET_CRAN WORD(AP) ,-(SP) 
FB AD OD b308 PUSHL ry EFN(FP) 
00000000 ' GF 0c FB 0309 CALLS #12,6*SYS$QI10W 
4 10 031 447 BSBB LOWBIT BLse pie ; Go check the completion code 
50 6 3¢ 0031 448 MOVZWL (R5), R 3; Get the 1/0 completion code 
AB 10 8 1 449 BSBB LOWBIT_ELSE_DIE 3; Go check the completion code 
54 D4 1 450 CLRL RS ; Say no messages received yet 
0319 451 10$: $Q10W_S - ; Read a response 
0319 43¢ CHAN = @NET_CHAN_WORD(APS, - ; from the destination 
19 45 FUNC = S*#I0$_READVBLK, - ; reading obviously 
19 454 EFN = WAIT EFN(FP), - ; waiting for it to complete 
19 455 10SB = (RSJ, - ; use an IOSB 
19 $28 Pi = B(R5), - ; use the 1/0 buffer 
19 45 P2 = #10_BUF_LEN ; with its length 
7E 7¢ 19 CLRQ =(SPJ 
7E 7C¢ 18 CLRQ (SP) 
00000100 8F oDD 8 USHL #10_BUF_LEN 
08 AS F PUSHAL 8(R5) 
rf C g LRQ rH it 
7F PUSHAQ (R5) 
7E 0' C A MOVZWL S“#I0$_READVBLK,-(SP) 
7E 08 BC 3¢ D MOVZWL @NET_CRAN WORD (AP) ,-(SP) 
FB AD OD 1 PUSHL ysl EFN(FP) 
00000000 ' GF 9 Fe 4 CALLS #12,6*SYS$Ql10W 
FF B $28 BSBW LOWBIT FLSE_END 3; Go check the comple ion code 
50 § f ‘ 45 MOVZWL (RS), R ; Get the 1/0 completion code 
FF 4 460 BSBW Lowe {TE} SE_END ; Go check the completion code 
50 O2A C 44 461 MOVZWL 2(R5),°R ; Get size of response 
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gf 3 48 4 § BEQL 138 3; No Length?? 
9 4A & DECL R ; Remove status code from message size 
51  O8 A E 4 464 MOVAB 8(R5), R 3 Point to message in the 1/0 buffer 
84 1 A 465 MOVZBL (R1)+, R j and extract its status code 
4 : CMPB R wSTS$K_SUCCESS : Is it success? 
1 4 BEQL § ; We're done if success 
be 3 4 8 MOVL #1, R4 : Else say some message(s) received 
6 6¢ 1 B 46 CMPB = (AP), #MSG_ROUT_ADDR/4 ; Do we have this argument? 
8 1F 470 BLSSU_:10$ 3 Nope 
18 AC OOD 6 471 TSTL MSG_ROUT_ADDR (AP) ; Yep, but was it really supplied? 
7 6 158 BEQL 10$ 3; Not reat ly there... 
8 D ? 47 TSTL R 3; Anything to look at in the message? 
1 474 BEQL 208 ; Nope?? 
m Um 69 475 CMPB (R1), #*A/%/ ; Yep, a leading percent (''%'')? 
4 if 6C 476 BNEQ 208 : No leading percent, all set 
a. 8 47 DECL RO ; Remove the percent from the count 
1 6 ri 4: INCL R1 ; _and skip the pointer over it 
7E 0 D 7 479 208: MOVQ RO, -(SP) ; Put me.sage descriptor onto stack 
6— 7F 0375 480 PUSHAQ (SP) ; then stack the address of that desc 
4 DD 7 481 tt} #1 3; FAO count is one 
2 c9 79 = 4 ¢ ISL R2, - ; Use the sqveri ty level .OR.‘'d into 
7B 4 #<LIBS_STRTRUSSTSSM_FAC_NO>!- ; a facili y code of ‘LIB’ 
7E 00001130'8F 7B 484 H XT, = 3; and a general text shared message 
18 + 03 Fe 8 81 rt CALLS #3, @MSG_ROUT_ADDR(AP) ; Call for message output (SPUTMSG) 
- sf 85 4 § ADDL #8, SP ; Clean up the stack again 
8F 11 Bane rt th BRB 10$ 3; then loop for more... 
52 86 7 0 BA iB 30$: MOVQ (R6)+, R2 ; Get descriptor of connection node 
SE 51 C 8D 490 SUBL3. R2, Ri, SP ; Back up stack for the node name 
76 43 9 8 91 491 MOVAB (SP), -(R6) ; Store new address of resultant path 
76 C 94 136 ADOL RO, =(R ; and path's Length 
oe 63 Sz ; Bae, 49 MOVC R2, (R3), (SP) ; Move connection node to path List 
FEF1 31 0398 494 BRW iT : Go exit... 
O39E 495 
O39E 496 
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! Psect synopsis ! 
terre nmoman ere ereasc $ 
PSECT name Allocation PSECT No. Attributes 
. ° 00000 7 ¥ -)» 00 ¢ -) NOPIC USR CON ABS LCL NO 
SABSS : ° ( oo O14 -) NOPIC USR CON ABS LCL NOSHR 
_LIBSCODE E ( 926.) 02 ¢ .) PIC UgR CON REL LCL 
teeter eco eee enews eeeceseeoe} 
H Pertoraance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 7 0:00:00.07 :00:00. 5 
Command processing 134 0: 0:00:51 98:98:90 1 
Pass 1 231 :00: 3-29 BBR Aas 
Symbol table sort 3: 0: 2} 0:00:01.4 
Pass 2 13 : 3: 1.71 0:00:04.39 
Symbol table output "§ 0:00:00.09 0:00:00.08 
Psect synopsis output 0:00: Be BOD RR «Re 
Cross-reference output 0:00:00.0 B00. 58°9 
Assembler run totals 551 0:00:09.60 00:00:23.99 


The working s set Limit was 900 pages 

40097 bytes (79 pages) of virtua memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space ol Lesared to hold 528 non-local and 18 Local symbols. 
496 source Lines were read in Pass 1, producing 15 object records in Pass 2. 

22 pages of virtual memory were used to define 20 macros. 
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Macro Library name 
~$255$DUA28:(SYSLIBJSTARLET MLB; 2 coun Be 
677 GETS were required to define 17 macros. 

There were no errors, warnings or information messages. 
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